home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / perl5 / Mail / Send.pm < prev    next >
Text File  |  2008-07-29  |  1KB  |  62 lines
  1. # Copyrights 1995-2008 by Mark Overmeer <perl@overmeer.net>.
  2. #  For other contributors see ChangeLog.
  3. # See the manual pages for details on the licensing terms.
  4. # Pod stripped from pm file by OODoc 1.05.
  5.  
  6. use strict;
  7. package Mail::Send;
  8. use vars '$VERSION';
  9. $VERSION = '2.04';
  10.  
  11.  
  12. use Carp;
  13. require Mail::Mailer;
  14.  
  15. sub Version { our $VERSION }
  16.  
  17.  
  18. sub new(@)
  19. {   my ($class, %attr) = @_;
  20.     my $self = bless {}, $class;
  21.  
  22.     while(my($key, $value) = each %attr)
  23.     {    $key = lc $key;
  24.         $self->$key($value);
  25.     }
  26.  
  27.     $self;
  28. }
  29.  
  30.  
  31. sub set($@)
  32. {   my ($self, $hdr, @values) = @_;
  33.     $self->{$hdr} = [ @values ] if @values;
  34.     @{$self->{$hdr} || []};    # return new (or original) values
  35. }
  36.  
  37.  
  38. sub add($@)
  39. {   my ($self, $hdr, @values) = @_;
  40.     push @{$self->{$hdr}}, @values;
  41. }
  42.  
  43.  
  44. sub delete($)
  45. {   my($self, $hdr) = @_;
  46.     delete $self->{$hdr};
  47. }
  48.  
  49.  
  50. sub to        { my $self=shift; $self->set('To', @_); }
  51. sub cc        { my $self=shift; $self->set('Cc', @_); }
  52. sub bcc        { my $self=shift; $self->set('Bcc', @_); }
  53. sub subject    { my $self=shift; $self->set('Subject', join (' ', @_)); }
  54.  
  55.  
  56. sub open(@)
  57. {   my $self = shift;
  58.     Mail::Mailer->new(@_)->open($self);
  59. }
  60.  
  61. 1;
  62.